home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / checksummer vc20 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  50 lines
  1. 0 rem****************
  2. 1 rem*              *
  3. 2 rem* checksummer  *
  4. 3 rem* version vc20 *
  5. 4 rem*              *
  6. 5 rem*              *
  7. 9 rem****************
  8. 10 print"[147]   checksummer  vc-20 "
  9. 11 print:print:print
  10. 12 print"einen moment, bitte..."
  11. 13 fori=827to993:gosub21:pokei,a
  12. 14 ps=ps+a+1:nexti
  13. 15 ifps<>20612thenprint"pruefsummenfehler !":end
  14. 16 sys955:print"checksummer aktiviert."
  15. 17 print"an :sys955"
  16. 18 print"aus:sys58459, bei cas-    sette zusaetzlich     run/stop & restore"
  17. 19 print"bei aktiviertem check-summer kein";
  18. 20 print" cassetten-betrieb (load, save)  erlaubt!":new
  19. 21 reada$:iflen(a$)<>2thenprint"tippfehler in zeile"peek(63)+peek(64)*256:end
  20. 22 a1=asc(a$):a2=asc(right$(a$,1))
  21. 23 ifa1<48ora1>57thenifa1<65ora1>70then30
  22. 24 ifa2<48ora2>57thenifa2<65ora2>70then30
  23. 25 ifa1>64thena1=a1-55:goto27
  24. 26 ifa1<58thena1=a1-48
  25. 27 ifa2>64thena2=a2-55:goto29
  26. 28 ifa2<58thena2=a2-48
  27. 29 a=a1*16+a2:return
  28. 30 print"ungueltiger hexcode in zeile"peek(63)+peek(64)*256:end
  29. 31 data 20,5f,03,86,7a,84,7b,20
  30. 32 data 73,00,aa,f0,f3,a2,ff,86
  31. 33 data 3a,90,0a,a2,00,86,ff,20
  32. 34 data 79,c5,4c,e1,c7,a2,01,86
  33. 35 data ff,4c,9c,c4,a6,ff,e0,01
  34. 36 data f0,03,4c,60,c5,a0,02,a9
  35. 37 data 00,85,fe,b1,5f,f0,0f,c9
  36. 38 data 20,d0,03,c8,d0,f5,18,65
  37. 39 data fe,85,fe,4c,76,03,c0,04
  38. 40 data 30,f1,c6,d6,a5,d6,48,a2
  39. 41 data 03,a9,20,9d,01,04,bd,b7
  40. 42 data 03,20,d2,ff,ca,10,f2,a6
  41. 43 data fe,a9,00,20,cd,dd,a9,3e
  42. 44 data 20,d2,ff,68,85,d6,20,87
  43. 45 data e5,a9,8d,20,d2,ff,a2,00
  44. 46 data 86,ff,f0,ae,09,3c,12,13
  45. 47 data a9,3b,8d,02,03,a9,03,8d
  46. 48 data 03,03,a5,ba,c9,01,d0,10
  47. 49 data a9,74,8d,30,03,8d,32,03
  48. 50 data a9,c4,8d,31,03,8d,33,03
  49. 51 data ad,88,02,8d,90,03,60
  50.